{%mainunit bitcoin_p2p.pas}

{$IFDEF INTERFACE}
type

  { TInvVect }

  TInvVect = class(TMsg)
    Typ  : DWord;
    Hash : TSHA256Digest;
    procedure ParseAndProcess; override;
  end;

{$ENDIF}
{$IFDEF IMPLEMENTATION}

procedure TInvVect.ParseAndProcess;
begin
  Typ := ReadDWord;
  ReadBuffer(Hash[1], Length(Hash));
end;

{$ENDIF}

